home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
H191.ZIP
/
CA29-4.EXE
/
VOICEON.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1991-06-10
|
2KB
|
55 lines
S29 = "VoiceON ver 1.1 " ; 20 chars long
LEGEND S29
S28 = "talker.ovl" ; Our overlay file
S27 = "pc-vco.exc" ; Our exception file
;
; ----- VoiceON: Scripted interface to VOICE.EXE: Turn VOICE ON
;
; R.McG; 3/90, Chicago
; ----------------------------------------------------------------
; Usages:
; S29 -----> Legend line
; S28 -----> Our own overlay file name
; S27 -----> Our exception file
;
; -----------------------------------------------------------------------
; NOTE: This script terminates a previously loaded overlay
; -----------------------------------------------------------------------
;
; Set-up the overlay (our interface to VOICE.EXE).
; .. define an end entry pt of '9' at the same time
;
OVERLAY S28 9 ; Load our overlay (end entry pt = 9)
IF FAILED ; Stop here if can't load overlay
MESS "!Cannot overlay file: "*S28*"!"
GOTO Exit
ENDIF
;
; Use the overlay to 'open' the driver
;
SCALL 6,N0 ; Entry addr 6 -> open_talk
IF NOT ZERO N0 ; If anything but zero rtnd
MESS "!Cannot open voice driver!"
IF NOT ISFILE "voice.exe" MESS "!VOICE.EXE must be on current subdir!"
OVERLAY CLEAR
GOTO Exit
ENDIF
;
; Load an exception file, if its present
;
SCALL 12,S27,N0 ; Entry addr 12 -> Load exception file
IF NOT ZERO N0 ; If anything but zero rtnd
MESS "!Exception file load error: "*N0*" using: "*S27*"!"
ENDIF ; Not fatal error
MESS "Voice ON!" ; Inform
;
; Ensure VOICE.EXE is unloaded before COM-AND terminates
;
set exit "VOICEOFF.cmd" ; Execute before Alt-X
;
; Return according the manner in which we were called
;
Exit:
IF FCALLED FRET ; Return if called
EXIT ; Else stop script